home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestPlot3 < prev    next >
Encoding:
Text File  |  2004-01-31  |  913 b   |  44 lines
  1. testPen <- Pen new: 'Test The Plot3 Functions'
  2.  
  3. testPen openPlotEnv: 400 @ 250
  4. testPen setPens: 2 @ 0
  5.  
  6. testPen drawText: 'Some Sample Label-making' at: 10 @ 18
  7. testPen drawText: 'Test Text Clipping...' at: 300 @ 38
  8.  
  9. testPen setPens: 4 @ 0
  10. testPen drawBox: 20 @ 28 to: 380 @ 240
  11.  
  12. testPen setPens: 8 @ 0
  13. testPen drawCircleAt: 200 @ 125 radius: 50
  14.  
  15. testPen direction: 1
  16. testPen      goTo: 200 @ 125
  17. testPen   setPens: 7 @ 0
  18.  
  19. showTest <- ShowPen new
  20.  
  21. showTest withPen: testPen
  22.  
  23. showTest  spiral: 50  angle: 1.04
  24.  
  25. showTest    poly: 7  length: 50
  26.  
  27. testPen  setPens: 9 @ 0
  28.  
  29. angle <- Radian new: 0.523599
  30.  
  31. testPen drawArcAt: 200@100 around: 250@200 for: angle
  32.  
  33. testPen  setPens: 5 @ 0
  34.  
  35. testPen setLineType: 16rFAFA "<- 64250 = a dashed line." 
  36.  
  37. testPen drawBox:  30 @ 40 to: 350 @ 200
  38. testPen drawLine: 10 @ 30 to: 300 @ 240
  39.  
  40. testPen location
  41. testPen extent
  42.  
  43. testPen movePlotEnvBy: 30 @ 20 "Move the entire Plot Window."
  44.